home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / TRIANGLE.dxr / 00054.ls < prev    next >
Encoding:
Text File  |  1998-07-22  |  661 b   |  15 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on prepareFrame
  6.   spriteBox(6, the left of sprite 6, the locV of sprite 8, the locH of sprite 8, the bottom of sprite 6)
  7.   spriteBox(7, the right of sprite 6, the top of sprite 6, the right of sprite 7, the bottom of sprite 7)
  8.   put atan(float(the height of sprite 6) / float(the width of sprite 6)) * float(180) / PI into field "L1"
  9.   put atan(float(the height of sprite 7) / float(the width of sprite 7)) * float(180) / PI into field "R1"
  10.   put 180 - field "R1" - field "L1" into field "T1"
  11.   set the locH of sprite 11 to the locH of sprite 8 + 23
  12.   set the locV of sprite 11 to the locV of sprite 8 - 20
  13.   updateStage()
  14. end
  15.